home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / micro-lock v1.2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  893 b   |  21 lines
  1. 10 poke808,225:poke53280,0:poke53281,0
  2. 20 print"[158][147][205][201][195][210][207]-[204][207][195][203] [214]1.2 by [193]. [196]enzl 1988"
  3. 30 print"[194]itte [195]ode eingeben (5 [212]asten) : ";
  4. 40 poke204,0:for p=1to5
  5. 50 get code$:if code$="" then 50
  6. 60 poke956+p,asc(code$):print"*";:nextp
  7. 70 poke204,1:print" ":gosub 1000
  8. 80 print:print"[205]icro-[204]ock installiert ..."
  9. 90 print"[193]ktivieren: <[195][194][205]> + <[210][197][211][212][207][210][197]>"
  10. 100 poke808,237:new
  11. 1000 poke53280,2:restore:for i=828 to 956:read x:poke i,x:next i
  12. 1010 poke792,60:poke793,3:poke178,0:poke 179,4:poke53280,0:return
  13. 10000 data 72,138,72,152,72,32,94,3,169,127,141,13,221,32,188,246,32
  14. 10002 data 225,255,32,21,253,32,163,253,32,24,229,32,178,3,108,2,160
  15. 10004 data 173,141,2,201,2,240,1,96,206,32,208,169,0,141,14,220,133
  16. 10006 data 198,169,127,141,138,2,169,177,141,24,3,169,3,141,25,3,162
  17. 10008 data 0,134,2,32,159,255,32,228,255,240,248,166,2,221,189,3,208
  18. 10010 data 237,230,2,165,2,201,5,208,233,169,1,141,14,220,169,0,141
  19. 10012 data 138,2,32,178,3,238,32,208,104,104,104,168,104,170,104,64,169
  20. 10014 data 60,141,24,3,169,3,141,25,3,96
  21.